﻿Imports System.Collections
Imports System.Collections.Generic
Imports FrameworkNHibernate
Imports FrameworkNHibernate.Dal
'Imports ArtNoi.Sphinx.Dominio

Public Class HQLTester
    Inherits GenericsNHibernateDao(Of HQL)
    Implements IHQLTester

    Public Function Buscar(ByVal _hql As String) As List(Of Object) Implements IHQLTester.Buscar

        Dim _retorno As IList(Of Object)
        Dim _consulta As String = _hql

        _retorno = MyBase.CurrentSession.CreateQuery(_consulta).List(Of Object)()
        Return _retorno

    End Function

End Class

Public Interface IHQLTester
    Inherits IGenericDao(Of HQL)

    Function Buscar(ByVal _hql As String) As List(Of Object)

End Interface

Public Class HQL

End Class